/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / vm / vm-mouse.elc.z / vm-mouse.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 35 3a 30 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:45:07 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 76 6d 2f 76 |s-20.3/l|isp/vm/v|
|000000a0| 6d 2d 6d 6f 75 73 65 2e | 65 6c 0a 3b 3b 3b 20 65 |m-mouse.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 76 6d 2d 6d 6f 75 73 65 |error "`|vm-mouse|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 70 72 6f 76 | 69 64 65 20 27 76 6d 2d |...(prov|ide 'vm-|
|00000260| 6d 6f 75 73 65 29 0a 28 | 64 65 66 61 6c 69 61 73 |mouse).(|defalias|
|00000270| 20 27 76 6d 2d 6d 6f 75 | 73 65 2d 66 73 66 65 6d | 'vm-mou|se-fsfem|
|00000280| 61 63 73 2d 6d 6f 75 73 | 65 2d 70 20 23 5b 6e 69 |acs-mous|e-p #[ni|
|00000290| 6c 20 22 08 ad 83 c1 c2 | 21 87 22 20 5b 76 6d 2d |l ".....|!." [vm-|
|000002a0| 66 73 66 65 6d 61 63 73 | 2d 70 20 66 62 6f 75 6e |fsfemacs|-p fboun|
|000002b0| 64 70 20 73 65 74 2d 6d | 6f 75 73 65 2d 70 6f 73 |dp set-m|ouse-pos|
|000002c0| 69 74 69 6f 6e 5d 20 32 | 5d 29 0a 28 64 65 66 61 |ition] 2|]).(defa|
|000002d0| 6c 69 61 73 20 27 76 6d | 2d 6d 6f 75 73 65 2d 78 |lias 'vm|-mouse-x|
|000002e0| 65 6d 61 63 73 2d 6d 6f | 75 73 65 2d 70 20 23 5b |emacs-mo|use-p #[|
|000002f0| 6e 69 6c 20 22 08 ad 83 | c1 c2 21 87 22 20 5b 76 |nil "...|..!." [v|
|00000300| 6d 2d 78 65 6d 61 63 73 | 2d 70 20 66 62 6f 75 6e |m-xemacs|-p fboun|
|00000310| 64 70 20 73 65 74 2d 6d | 6f 75 73 65 2d 70 6f 73 |dp set-m|ouse-pos|
|00000320| 69 74 69 6f 6e 5d 20 32 | 5d 29 0a 28 64 65 66 61 |ition] 2|]).(defa|
|00000330| 6c 69 61 73 20 27 76 6d | 2d 6d 6f 75 73 65 2d 73 |lias 'vm|-mouse-s|
|00000340| 65 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 68 |et-mouse|-track-h|
|00000350| 69 67 68 6c 69 67 68 74 | 20 23 5b 28 73 74 61 72 |ighlight| #[(star|
|00000360| 74 20 65 6e 64 20 26 6f | 70 74 69 6f 6e 61 6c 20 |t end &o|ptional |
|00000370| 6f 76 65 72 6c 61 79 29 | 20 22 08 ac af 09 ab 8e |overlay)| "......|
|00000380| c2 0b 0c 5c 22 1d c6 0d | c7 c8 23 88 0d 29 87 0e |...\"...|..#..)..|
|00000390| 09 ad ac ca 0b 0c 5c 22 | 1d cb 0d cc cd 23 88 cb |......\"|.....#..|
|000003a0| 0d ce cf 23 88 cb 0d c8 | cd 23 88 0d 29 87 09 ab |...#....|.#..)...|
|000003b0| 86 d0 08 0b 0c 23 87 0e | 09 ad 85 d1 08 0b 0c 23 |.....#..|.......#|
|000003c0| 87 22 20 5b 6f 76 65 72 | 6c 61 79 20 76 6d 2d 66 |." [over|lay vm-f|
|000003d0| 73 66 65 6d 61 63 73 2d | 70 20 6d 61 6b 65 2d 6f |sfemacs-|p make-o|
|000003e0| 76 65 72 6c 61 79 20 73 | 74 61 72 74 20 65 6e 64 |verlay s|tart end|
|000003f0| 20 6f 20 6f 76 65 72 6c | 61 79 2d 70 75 74 20 6d | o overl|ay-put m|
|00000400| 6f 75 73 65 2d 66 61 63 | 65 20 68 69 67 68 6c 69 |ouse-fac|e highli|
|00000410| 67 68 74 20 76 6d 2d 78 | 65 6d 61 63 73 2d 70 20 |ght vm-x|emacs-p |
|00000420| 6d 61 6b 65 2d 65 78 74 | 65 6e 74 20 73 65 74 2d |make-ext|ent set-|
|00000430| 65 78 74 65 6e 74 2d 70 | 72 6f 70 65 72 74 79 20 |extent-p|roperty |
|00000440| 73 74 61 72 74 2d 6f 70 | 65 6e 20 74 20 70 72 69 |start-op|en t pri|
|00000450| 6f 72 69 74 79 20 31 30 | 20 6d 6f 76 65 2d 6f 76 |ority 10| move-ov|
|00000460| 65 72 6c 61 79 20 73 65 | 74 2d 65 78 74 65 6e 74 |erlay se|t-extent|
|00000470| 2d 65 6e 64 70 6f 69 6e | 74 73 5d 20 34 5d 29 0a |-endpoin|ts] 4]).|
|00000480| 28 64 65 66 61 6c 69 61 | 73 20 27 76 6d 2d 6d 6f |(defalia|s 'vm-mo|
|00000490| 75 73 65 2d 62 75 74 74 | 6f 6e 2d 32 20 23 5b 28 |use-butt|on-2 #[(|
|000004a0| 65 76 65 6e 74 29 20 22 | c0 20 ab 93 c1 c2 0b 21 |event) "|. .....!|
|000004b0| 21 71 88 c4 0b 21 ab 9b | c4 0b 21 62 88 aa 94 c5 |!q...!..|..!b....|
|000004c0| 20 ab 90 c1 c6 c7 0b 21 | 21 21 71 88 c8 c7 0b 21 | ......!|!!q....!|
|000004d0| 21 62 88 0e 09 ca 61 ab | 97 cb 0b 21 88 cc 79 88 |!b....a.|...!..y.|
|000004e0| cd 1e 0e ce 20 29 3f ad | 90 cf 16 10 d1 cf 21 87 |.... )?.|......!.|
|000004f0| 0e 09 d2 73 ad 83 d3 0b | 21 87 22 20 5b 76 6d 2d |...s....|!." [vm-|
|00000500| 6d 6f 75 73 65 2d 78 65 | 6d 61 63 73 2d 6d 6f 75 |mouse-xe|macs-mou|
|00000510| 73 65 2d 70 20 77 69 6e | 64 6f 77 2d 62 75 66 66 |se-p win|dow-buff|
|00000520| 65 72 20 65 76 65 6e 74 | 2d 77 69 6e 64 6f 77 20 |er event|-window |
|00000530| 65 76 65 6e 74 20 65 76 | 65 6e 74 2d 70 6f 69 6e |event ev|ent-poin|
|00000540| 74 20 76 6d 2d 6d 6f 75 | 73 65 2d 66 73 66 65 6d |t vm-mou|se-fsfem|
|00000550| 61 63 73 2d 6d 6f 75 73 | 65 2d 70 20 70 6f 73 6e |acs-mous|e-p posn|
|00000560| 2d 77 69 6e 64 6f 77 20 | 65 76 65 6e 74 2d 73 74 |-window |event-st|
|00000570| 61 72 74 20 70 6f 73 6e | 2d 70 6f 69 6e 74 20 6d |art posn|-point m|
|00000580| 61 6a 6f 72 2d 6d 6f 64 | 65 20 76 6d 2d 73 75 6d |ajor-mod|e vm-sum|
|00000590| 6d 61 72 79 2d 6d 6f 64 | 65 20 6d 6f 75 73 65 2d |mary-mod|e mouse-|
|000005a0| 73 65 74 2d 70 6f 69 6e | 74 20 30 20 74 20 76 6d |set-poin|t 0 t vm|
|000005b0| 2d 66 6f 6c 6c 6f 77 2d | 73 75 6d 6d 61 72 79 2d |-follow-|summary-|
|000005c0| 63 75 72 73 6f 72 20 76 | 6d 2d 73 63 72 6f 6c 6c |cursor v|m-scroll|
|000005d0| 2d 66 6f 72 77 61 72 64 | 20 74 68 69 73 2d 63 6f |-forward| this-co|
|000005e0| 6d 6d 61 6e 64 20 63 61 | 6c 6c 2d 69 6e 74 65 72 |mmand ca|ll-inter|
|000005f0| 61 63 74 69 76 65 6c 79 | 20 28 76 6d 2d 6d 6f 64 |actively| (vm-mod|
|00000600| 65 20 76 6d 2d 76 69 72 | 74 75 61 6c 2d 6d 6f 64 |e vm-vir|tual-mod|
|00000610| 65 20 76 6d 2d 70 72 65 | 73 65 6e 74 61 74 69 6f |e vm-pre|sentatio|
|00000620| 6e 2d 6d 6f 64 65 29 20 | 76 6d 2d 6d 6f 75 73 65 |n-mode) |vm-mouse|
|00000630| 2d 70 6f 70 75 70 2d 6f | 72 2d 73 65 6c 65 63 74 |-popup-o|r-select|
|00000640| 5d 20 34 20 6e 69 6c 20 | 22 65 22 5d 29 0a 28 64 |] 4 nil |"e"]).(d|
|00000650| 65 66 61 6c 69 61 73 20 | 27 76 6d 2d 6d 6f 75 73 |efalias |'vm-mous|
|00000660| 65 2d 62 75 74 74 6f 6e | 2d 33 20 23 5b 28 65 76 |e-button|-3 #[(ev|
|00000670| 65 6e 74 29 20 22 08 ad | dc c1 20 ab 93 c2 c3 0c |ent) "..|.. .....|
|00000680| 21 21 71 88 c5 0c 21 ab | 9b c5 0c 21 62 88 aa 94 |!!q...!.|...!b...|
|00000690| c6 20 ab 90 c2 c7 c8 0c | 21 21 21 71 88 c9 c8 0c |. ......|!!!q....|
|000006a0| 21 21 62 88 0e 5c 6e cb | 61 ab 84 cc 0c 21 87 0e |!!b..\n.|a....!..|
|000006b0| 5c 6e cd 61 ab 84 ce 0c | 21 87 0e 5c 6e cf 61 ab |\n.a....|!..\n.a.|
|000006c0| 84 ce 0c 21 87 0e 5c 6e | d0 61 ab 84 ce 0c 21 87 |...!..\n|.a....!.|
|000006d0| 0e 5c 6e d1 61 ad 83 ce | 0c 21 87 22 20 5b 76 6d |.\n.a...|.!." [vm|
|000006e0| 2d 75 73 65 2d 6d 65 6e | 75 73 20 76 6d 2d 6d 6f |-use-men|us vm-mo|
|000006f0| 75 73 65 2d 78 65 6d 61 | 63 73 2d 6d 6f 75 73 65 |use-xema|cs-mouse|
|00000700| 2d 70 20 77 69 6e 64 6f | 77 2d 62 75 66 66 65 72 |-p windo|w-buffer|
|00000710| 20 65 76 65 6e 74 2d 77 | 69 6e 64 6f 77 20 65 76 | event-w|indow ev|
|00000720| 65 6e 74 20 65 76 65 6e | 74 2d 70 6f 69 6e 74 20 |ent even|t-point |
|00000730| 76 6d 2d 6d 6f 75 73 65 | 2d 66 73 66 65 6d 61 63 |vm-mouse|-fsfemac|
|00000740| 73 2d 6d 6f 75 73 65 2d | 70 20 70 6f 73 6e 2d 77 |s-mouse-|p posn-w|
|00000750| 69 6e 64 6f 77 20 65 76 | 65 6e 74 2d 73 74 61 72 |indow ev|ent-star|
|00000760| 74 20 70 6f 73 6e 2d 70 | 6f 69 6e 74 20 6d 61 6a |t posn-p|oint maj|
|00000770| 6f 72 2d 6d 6f 64 65 20 | 76 6d 2d 73 75 6d 6d 61 |or-mode |vm-summa|
|00000780| 72 79 2d 6d 6f 64 65 20 | 76 6d 2d 6d 65 6e 75 2d |ry-mode |vm-menu-|
|00000790| 70 6f 70 75 70 2d 6d 6f | 64 65 2d 6d 65 6e 75 20 |popup-mo|de-menu |
|000007a0| 76 6d 2d 6d 6f 64 65 20 | 76 6d 2d 6d 65 6e 75 2d |vm-mode |vm-menu-|
|000007b0| 70 6f 70 75 70 2d 63 6f | 6e 74 65 78 74 2d 6d 65 |popup-co|ntext-me|
|000007c0| 6e 75 20 76 6d 2d 70 72 | 65 73 65 6e 74 61 74 69 |nu vm-pr|esentati|
|000007d0| 6f 6e 2d 6d 6f 64 65 20 | 76 6d 2d 76 69 72 74 75 |on-mode |vm-virtu|
|000007e0| 61 6c 2d 6d 6f 64 65 20 | 6d 61 69 6c 2d 6d 6f 64 |al-mode |mail-mod|
|000007f0| 65 5d 20 34 20 6e 69 6c | 20 22 65 22 5d 29 0a 28 |e] 4 nil| "e"]).(|
|00000800| 64 65 66 61 6c 69 61 73 | 20 27 76 6d 2d 6d 6f 75 |defalias| 'vm-mou|
|00000810| 73 65 2d 33 2d 68 65 6c | 70 20 23 5b 28 6f 62 6a |se-3-hel|p #[(obj|
|00000820| 65 63 74 29 20 22 c0 87 | 22 20 5b 22 55 73 65 20 |ect) "..|" ["Use |
|00000830| 6d 6f 75 73 65 20 62 75 | 74 74 6f 6e 20 33 20 74 |mouse bu|tton 3 t|
|00000840| 6f 20 73 65 65 20 61 20 | 6d 65 6e 75 20 6f 66 20 |o see a |menu of |
|00000850| 6f 70 74 69 6f 6e 73 2e | 22 5d 20 31 5d 29 0a 28 |options.|"] 1]).(|
|00000860| 64 65 66 61 6c 69 61 73 | 20 27 76 6d 2d 6d 6f 75 |defalias| 'vm-mou|
|00000870| 73 65 2d 67 65 74 2d 6d | 6f 75 73 65 2d 74 72 61 |se-get-m|ouse-tra|
|00000880| 63 6b 2d 73 74 72 69 6e | 67 20 23 5b 28 65 76 65 |ck-strin|g #[(eve|
|00000890| 6e 74 29 20 22 8a c0 20 | ab 93 c1 c2 0b 21 21 71 |nt) ".. |.....!!q|
|000008a0| 88 c4 0b 21 ab 9b c4 0b | 21 62 88 aa 94 c5 20 ab |...!....|!b.... .|
|000008b0| 90 c1 c6 c7 0b 21 21 21 | 71 88 c8 c7 0b 21 21 62 |.....!!!|q....!!b|
|000008c0| 88 0e 09 ab b4 ca 60 21 | cb 1e 0c 89 1e 0d ab a4 |......`!|........|
|000008d0| ce 0e 0d 40 cf 5c 22 ab | 94 d0 d1 0e 0d 40 21 d2 |...@.\".|.....@!.|
|000008e0| 0e 0d 40 21 5c 22 16 0c | cb 89 16 0d aa 62 0e 0d |..@!\"..|.....b..|
|000008f0| 41 89 16 0d ac 5c 5c 0e | 0c 2a aa 9b 0e 13 ab 96 |A....\\.|.*......|
|00000900| d4 60 cb d5 23 89 1e 16 | ad 89 d7 0e 16 21 d8 0e |.`..#...|.....!..|
|00000910| 16 21 7b 29 aa 81 cb 29 | 87 22 20 5b 76 6d 2d 6d |.!{)...)|." [vm-m|
|00000920| 6f 75 73 65 2d 78 65 6d | 61 63 73 2d 6d 6f 75 73 |ouse-xem|acs-mous|
|00000930| 65 2d 70 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |e-p wind|ow-buffe|
|00000940| 72 20 65 76 65 6e 74 2d | 77 69 6e 64 6f 77 20 65 |r event-|window e|
|00000950| 76 65 6e 74 20 65 76 65 | 6e 74 2d 70 6f 69 6e 74 |vent eve|nt-point|
|00000960| 20 76 6d 2d 6d 6f 75 73 | 65 2d 66 73 66 65 6d 61 | vm-mous|e-fsfema|
|00000970| 63 73 2d 6d 6f 75 73 65 | 2d 70 20 70 6f 73 6e 2d |cs-mouse|-p posn-|
|00000980| 77 69 6e 64 6f 77 20 65 | 76 65 6e 74 2d 73 74 61 |window e|vent-sta|
|00000990| 72 74 20 70 6f 73 6e 2d | 70 6f 69 6e 74 20 76 6d |rt posn-|point vm|
|000009a0| 2d 66 73 66 65 6d 61 63 | 73 2d 70 20 6f 76 65 72 |-fsfemac|s-p over|
|000009b0| 6c 61 79 73 2d 61 74 20 | 6e 69 6c 20 73 74 72 69 |lays-at |nil stri|
|000009c0| 6e 67 20 6f 2d 6c 69 73 | 74 20 6f 76 65 72 6c 61 |ng o-lis|t overla|
|000009d0| 79 2d 67 65 74 20 6d 6f | 75 73 65 2d 66 61 63 65 |y-get mo|use-face|
|000009e0| 20 76 6d 2d 62 75 66 66 | 65 72 2d 73 75 62 73 74 | vm-buff|er-subst|
|000009f0| 72 69 6e 67 2d 6e 6f 2d | 70 72 6f 70 65 72 74 69 |ring-no-|properti|
|00000a00| 65 73 20 6f 76 65 72 6c | 61 79 2d 73 74 61 72 74 |es overl|ay-start|
|00000a10| 20 6f 76 65 72 6c 61 79 | 2d 65 6e 64 20 76 6d 2d | overlay|-end vm-|
|00000a20| 78 65 6d 61 63 73 2d 70 | 20 65 78 74 65 6e 74 2d |xemacs-p| extent-|
|00000a30| 61 74 20 68 69 67 68 6c | 69 67 68 74 20 65 20 65 |at highl|ight e e|
|00000a40| 78 74 65 6e 74 2d 73 74 | 61 72 74 2d 70 6f 73 69 |xtent-st|art-posi|
|00000a50| 74 69 6f 6e 20 65 78 74 | 65 6e 74 2d 65 6e 64 2d |tion ext|ent-end-|
|00000a60| 70 6f 73 69 74 69 6f 6e | 5d 20 35 5d 29 0a 28 64 |position|] 5]).(d|
|00000a70| 65 66 61 6c 69 61 73 20 | 27 76 6d 2d 6d 6f 75 73 |efalias |'vm-mous|
|00000a80| 65 2d 70 6f 70 75 70 2d | 6f 72 2d 73 65 6c 65 63 |e-popup-|or-selec|
|00000a90| 74 20 23 5b 28 65 76 65 | 6e 74 29 20 22 c0 20 ab |t #[(eve|nt) ". .|
|00000aa0| db c1 c2 c3 0c 21 21 21 | 71 88 c5 c3 0c 21 21 62 |.....!!!|q....!!b|
|00000ab0| 88 c6 89 1e 07 1e 08 c9 | 60 21 89 16 08 ab b3 0e |........|`!......|
|00000ac0| 07 ac af ca 0e 08 40 cb | 5c 22 ab 89 cc 16 07 cd |......@.|\"......|
|00000ad0| 0c 21 88 aa 96 ca 0e 08 | 40 ce 5c 22 ab 8e cc 16 |.!......|@.\"....|
|00000ae0| 07 ca 0e 08 40 ce 5c 22 | 0e 08 40 21 88 0e 08 41 |....@.\"|..@!...A|
|00000af0| 89 16 08 ac 4d 0e 07 3f | ad 83 cf 0c 21 2a 87 d0 |....M..?|....!*..|
|00000b00| 20 ad b8 c1 d1 0c 21 21 | 71 88 d2 0c 21 ab 85 d2 | .....!!|q...!...|
|00000b10| 0c 21 62 88 c6 1e 13 d4 | 60 70 cb 23 ab 85 cd 0c |.!b.....|`p.#....|
|00000b20| 21 aa 97 d4 60 c6 ce 23 | 89 16 13 ab 8a d5 0e 13 |!...`..#|........|
|00000b30| ce 5c 22 0e 13 21 aa 83 | cf 0c 21 29 87 22 20 5b |.\"..!..|..!)." [|
|00000b40| 76 6d 2d 6d 6f 75 73 65 | 2d 66 73 66 65 6d 61 63 |vm-mouse|-fsfemac|
|00000b50| 73 2d 6d 6f 75 73 65 2d | 70 20 77 69 6e 64 6f 77 |s-mouse-|p window|
|00000b60| 2d 62 75 66 66 65 72 20 | 70 6f 73 6e 2d 77 69 6e |-buffer |posn-win|
|00000b70| 64 6f 77 20 65 76 65 6e | 74 2d 73 74 61 72 74 20 |dow even|t-start |
|00000b80| 65 76 65 6e 74 20 70 6f | 73 6e 2d 70 6f 69 6e 74 |event po|sn-point|
|00000b90| 20 6e 69 6c 20 66 6f 75 | 6e 64 20 6f 2d 6c 69 73 | nil fou|nd o-lis|
|00000ba0| 74 20 6f 76 65 72 6c 61 | 79 73 2d 61 74 20 6f 76 |t overla|ys-at ov|
|00000bb0| 65 72 6c 61 79 2d 67 65 | 74 20 76 6d 2d 75 72 6c |erlay-ge|t vm-url|
|00000bc0| 20 74 20 76 6d 2d 6d 6f | 75 73 65 2d 73 65 6e 64 | t vm-mo|use-send|
|00000bd0| 2d 75 72 6c 2d 61 74 2d | 65 76 65 6e 74 20 76 6d |-url-at-|event vm|
|00000be0| 2d 6d 69 6d 65 2d 66 75 | 6e 63 74 69 6f 6e 20 76 |-mime-fu|nction v|
|00000bf0| 6d 2d 6d 65 6e 75 2d 70 | 6f 70 75 70 2d 63 6f 6e |m-menu-p|opup-con|
|00000c00| 74 65 78 74 2d 6d 65 6e | 75 20 76 6d 2d 6d 6f 75 |text-men|u vm-mou|
|00000c10| 73 65 2d 78 65 6d 61 63 | 73 2d 6d 6f 75 73 65 2d |se-xemac|s-mouse-|
|00000c20| 70 20 65 76 65 6e 74 2d | 77 69 6e 64 6f 77 20 65 |p event-|window e|
|00000c30| 76 65 6e 74 2d 70 6f 69 | 6e 74 20 65 20 65 78 74 |vent-poi|nt e ext|
|00000c40| 65 6e 74 2d 61 74 20 65 | 78 74 65 6e 74 2d 70 72 |ent-at e|xtent-pr|
|00000c50| 6f 70 65 72 74 79 5d 20 | 35 20 6e 69 6c 20 22 65 |operty] |5 nil "e|
|00000c60| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |"]).(def|alias 'v|
|00000c70| 6d 2d 6d 6f 75 73 65 2d | 73 65 6e 64 2d 75 72 6c |m-mouse-|send-url|
|00000c80| 2d 61 74 2d 65 76 65 6e | 74 20 23 5b 28 65 76 65 |-at-even|t #[(eve|
|00000c90| 6e 74 29 20 22 c0 20 ab | 97 c1 c2 0b 21 21 71 88 |nt) ". .|....!!q.|
|00000ca0| c4 0b 21 ab 85 c4 0b 21 | 62 88 c5 c4 0b 21 21 87 |..!....!|b....!!.|
|00000cb0| c6 20 ad 97 c1 c7 c8 0b | 21 21 21 71 88 c9 c8 0b |. ......|!!!q....|
|00000cc0| 21 21 62 88 c5 c9 c8 0b | 21 21 21 87 22 20 5b 76 |!!b.....|!!!." [v|
|00000cd0| 6d 2d 6d 6f 75 73 65 2d | 78 65 6d 61 63 73 2d 6d |m-mouse-|xemacs-m|
|00000ce0| 6f 75 73 65 2d 70 20 77 | 69 6e 64 6f 77 2d 62 75 |ouse-p w|indow-bu|
|00000cf0| 66 66 65 72 20 65 76 65 | 6e 74 2d 77 69 6e 64 6f |ffer eve|nt-windo|
|00000d00| 77 20 65 76 65 6e 74 20 | 65 76 65 6e 74 2d 70 6f |w event |event-po|
|00000d10| 69 6e 74 20 76 6d 2d 6d | 6f 75 73 65 2d 73 65 6e |int vm-m|ouse-sen|
|00000d20| 64 2d 75 72 6c 2d 61 74 | 2d 70 6f 73 69 74 69 6f |d-url-at|-positio|
|00000d30| 6e 20 76 6d 2d 6d 6f 75 | 73 65 2d 66 73 66 65 6d |n vm-mou|se-fsfem|
|00000d40| 61 63 73 2d 6d 6f 75 73 | 65 2d 70 20 70 6f 73 6e |acs-mous|e-p posn|
|00000d50| 2d 77 69 6e 64 6f 77 20 | 65 76 65 6e 74 2d 73 74 |-window |event-st|
|00000d60| 61 72 74 20 70 6f 73 6e | 2d 70 6f 69 6e 74 5d 20 |art posn|-point] |
|00000d70| 34 20 6e 69 6c 20 22 65 | 22 5d 29 0a 28 64 65 66 |4 nil "e|"]).(def|
|00000d80| 61 6c 69 61 73 20 27 76 | 6d 2d 6d 6f 75 73 65 2d |alias 'v|m-mouse-|
|00000d90| 73 65 6e 64 2d 75 72 6c | 2d 61 74 2d 70 6f 73 69 |send-url|-at-posi|
|00000da0| 74 69 6f 6e 20 23 5b 28 | 70 6f 73 20 26 6f 70 74 |tion #[(|pos &opt|
|00000db0| 69 6f 6e 61 6c 20 62 72 | 6f 77 73 65 72 29 20 22 |ional br|owser) "|
|00000dc0| 8c 7e 88 c0 20 ab 9e c1 | 5c 6e 70 c3 23 c4 1d 89 |.~.. ...|\np.#...|
|00000dd0| 1e 06 ad 8f c7 0e 06 21 | c8 0e 06 21 7b 15 c9 0d |.......!|...!{...|
|00000de0| 0e 5c 6e 5c 22 2a aa be | cb 20 ad ba c4 89 89 1e |.\n\"*..|. ......|
|00000df0| 0c 1d 1e 0d ce 5c 6e 21 | 89 16 0d ab 90 cf 0e 0d |.....\n!|........|
|00000e00| 40 c3 5c 22 ac 88 0e 0d | 41 89 16 0d ac 70 0e 0d |@.\"....|A....p..|
|00000e10| ad 95 0e 0d 40 16 0c d0 | d1 0e 0c 21 d2 0e 0c 21 |....@...|...!...!|
|00000e20| 5c 22 15 c9 0d 0e 5c 6e | 5c 22 2b 29 87 22 20 5b |\"....\n|\"+)." [|
|00000e30| 76 6d 2d 6d 6f 75 73 65 | 2d 78 65 6d 61 63 73 2d |vm-mouse|-xemacs-|
|00000e40| 6d 6f 75 73 65 2d 70 20 | 65 78 74 65 6e 74 2d 61 |mouse-p |extent-a|
|00000e50| 74 20 70 6f 73 20 76 6d | 2d 75 72 6c 20 6e 69 6c |t pos vm|-url nil|
|00000e60| 20 75 72 6c 20 65 20 65 | 78 74 65 6e 74 2d 73 74 | url e e|xtent-st|
|00000e70| 61 72 74 2d 70 6f 73 69 | 74 69 6f 6e 20 65 78 74 |art-posi|tion ext|
|00000e80| 65 6e 74 2d 65 6e 64 2d | 70 6f 73 69 74 69 6f 6e |ent-end-|position|
|00000e90| 20 76 6d 2d 6d 6f 75 73 | 65 2d 73 65 6e 64 2d 75 | vm-mous|e-send-u|
|00000ea0| 72 6c 20 62 72 6f 77 73 | 65 72 20 76 6d 2d 6d 6f |rl brows|er vm-mo|
|00000eb0| 75 73 65 2d 66 73 66 65 | 6d 61 63 73 2d 6d 6f 75 |use-fsfe|macs-mou|
|00000ec0| 73 65 2d 70 20 6f 20 6f | 2d 6c 69 73 74 20 6f 76 |se-p o o|-list ov|
|00000ed0| 65 72 6c 61 79 73 2d 61 | 74 20 6f 76 65 72 6c 61 |erlays-a|t overla|
|00000ee0| 79 2d 67 65 74 20 76 6d | 2d 62 75 66 66 65 72 2d |y-get vm|-buffer-|
|00000ef0| 73 75 62 73 74 72 69 6e | 67 2d 6e 6f 2d 70 72 6f |substrin|g-no-pro|
|00000f00| 70 65 72 74 69 65 73 20 | 6f 76 65 72 6c 61 79 2d |perties |overlay-|
|00000f10| 73 74 61 72 74 20 6f 76 | 65 72 6c 61 79 2d 65 6e |start ov|erlay-en|
|00000f20| 64 5d 20 35 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |d] 5]).(|defalias|
|00000f30| 20 27 76 6d 2d 6d 6f 75 | 73 65 2d 73 65 6e 64 2d | 'vm-mou|se-send-|
|00000f40| 75 72 6c 20 23 5b 28 75 | 72 6c 20 26 6f 70 74 69 |url #[(u|rl &opti|
|00000f50| 6f 6e 61 6c 20 62 72 6f | 77 73 65 72 29 20 22 c0 |onal bro|wser) ".|
|00000f60| c1 5c 6e 5c 22 ab 84 c3 | 5c 6e 21 87 0c ae 81 0d |.\n\"...|\n!.....|
|00000f70| 89 1c 39 ab 85 0c 5c 6e | 21 aa 92 0c 3b ad 8e c6 |..9...\n|!...;...|
|00000f80| c7 0c 5c 22 88 c8 0c 5c | 6e 5c 22 88 c6 c9 0c 5c |..\"...\|n\"....\|
|00000f90| 22 29 87 22 20 5b 73 74 | 72 69 6e 67 2d 6d 61 74 |")." [st|ring-mat|
|00000fa0| 63 68 20 22 5e 6d 61 69 | 6c 74 6f 3a 22 20 75 72 |ch "^mai|lto:" ur|
|00000fb0| 6c 20 76 6d 2d 6d 61 69 | 6c 2d 74 6f 2d 6d 61 69 |l vm-mai|l-to-mai|
|00000fc0| 6c 74 6f 2d 75 72 6c 20 | 62 72 6f 77 73 65 72 20 |lto-url |browser |
|00000fd0| 76 6d 2d 75 72 6c 2d 62 | 72 6f 77 73 65 72 20 6d |vm-url-b|rowser m|
|00000fe0| 65 73 73 61 67 65 20 22 | 53 65 6e 64 69 6e 67 20 |essage "|Sending |
|00000ff0| 55 52 4c 20 74 6f 20 25 | 73 2e 2e 2e 22 20 76 6d |URL to %|s..." vm|
|00001000| 2d 72 75 6e 2d 62 61 63 | 6b 67 72 6f 75 6e 64 2d |-run-bac|kground-|
|00001010| 63 6f 6d 6d 61 6e 64 20 | 22 53 65 6e 64 69 6e 67 |command |"Sending|
|00001020| 20 55 52 4c 20 74 6f 20 | 25 73 2e 2e 2e 20 64 6f | URL to |%s... do|
|00001030| 6e 65 22 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |ne"] 4])|.(defali|
|00001040| 61 73 20 27 76 6d 2d 6d | 6f 75 73 65 2d 73 65 6e |as 'vm-m|ouse-sen|
|00001050| 64 2d 75 72 6c 2d 74 6f | 2d 6e 65 74 73 63 61 70 |d-url-to|-netscap|
|00001060| 65 20 23 5b 28 75 72 6c | 20 26 6f 70 74 69 6f 6e |e #[(url| &option|
|00001070| 61 6c 20 6e 65 77 2d 6e | 65 74 73 63 61 70 65 20 |al new-n|etscape |
|00001080| 6e 65 77 2d 77 69 6e 64 | 6f 77 29 20 22 c0 c1 21 |new-wind|ow) "..!|
|00001090| 88 5c 6e ab 8e c3 c4 0d | c6 0e 07 0e 08 43 5c 22 |.\n.....|.....C\"|
|000010a0| 23 88 aa a3 c9 c3 ca 0d | cb c6 cc 0e 08 0e 0d ab |#.......|........|
|000010b0| 83 ce aa 81 cf d0 52 43 | 0e 07 5c 22 24 6b ac 88 |......RC|..\"$k..|
|000010c0| d1 0e 08 d2 0e 0d 23 88 | c0 d3 21 87 22 20 5b 6d |......#.|..!." [m|
|000010d0| 65 73 73 61 67 65 20 22 | 53 65 6e 64 69 6e 67 20 |essage "|Sending |
|000010e0| 55 52 4c 20 74 6f 20 4e | 65 74 73 63 61 70 65 2e |URL to N|etscape.|
|000010f0| 2e 2e 22 20 6e 65 77 2d | 6e 65 74 73 63 61 70 65 |.." new-|netscape|
|00001100| 20 61 70 70 6c 79 20 76 | 6d 2d 72 75 6e 2d 62 61 | apply v|m-run-ba|
|00001110| 63 6b 67 72 6f 75 6e 64 | 2d 63 6f 6d 6d 61 6e 64 |ckground|-command|
|00001120| 20 76 6d 2d 6e 65 74 73 | 63 61 70 65 2d 70 72 6f | vm-nets|cape-pro|
|00001130| 67 72 61 6d 20 61 70 70 | 65 6e 64 20 76 6d 2d 6e |gram app|end vm-n|
|00001140| 65 74 73 63 61 70 65 2d | 70 72 6f 67 72 61 6d 2d |etscape-|program-|
|00001150| 73 77 69 74 63 68 65 73 | 20 75 72 6c 20 30 20 76 |switches| url 0 v|
|00001160| 6d 2d 72 75 6e 2d 63 6f | 6d 6d 61 6e 64 20 22 2d |m-run-co|mmand "-|
|00001170| 72 65 6d 6f 74 65 22 20 | 22 6f 70 65 6e 55 52 4c |remote" |"openURL|
|00001180| 28 22 20 6e 65 77 2d 77 | 69 6e 64 6f 77 20 22 2c |(" new-w|indow ",|
|00001190| 20 6e 65 77 2d 77 69 6e | 64 6f 77 22 20 22 22 20 | new-win|dow" "" |
|000011a0| 22 29 22 20 76 6d 2d 6d | 6f 75 73 65 2d 73 65 6e |")" vm-m|ouse-sen|
|000011b0| 64 2d 75 72 6c 2d 74 6f | 2d 6e 65 74 73 63 61 70 |d-url-to|-netscap|
|000011c0| 65 20 74 20 22 53 65 6e | 64 69 6e 67 20 55 52 4c |e t "Sen|ding URL|
|000011d0| 20 74 6f 20 4e 65 74 73 | 63 61 70 65 2e 2e 2e 20 | to Nets|cape... |
|000011e0| 64 6f 6e 65 22 5d 20 31 | 30 5d 29 0a 28 64 65 66 |done"] 1|0]).(def|
|000011f0| 61 6c 69 61 73 20 27 76 | 6d 2d 6d 6f 75 73 65 2d |alias 'v|m-mouse-|
|00001200| 73 65 6e 64 2d 75 72 6c | 2d 74 6f 2d 6e 65 74 73 |send-url|-to-nets|
|00001210| 63 61 70 65 2d 6e 65 77 | 2d 77 69 6e 64 6f 77 20 |cape-new|-window |
|00001220| 23 5b 28 75 72 6c 29 20 | 22 c0 09 c2 c3 23 87 22 |#[(url) |"....#."|
|00001230| 20 5b 76 6d 2d 6d 6f 75 | 73 65 2d 73 65 6e 64 2d | [vm-mou|se-send-|
|00001240| 75 72 6c 2d 74 6f 2d 6e | 65 74 73 63 61 70 65 20 |url-to-n|etscape |
|00001250| 75 72 6c 20 6e 69 6c 20 | 74 5d 20 34 5d 29 0a 28 |url nil |t] 4]).(|
|00001260| 64 65 66 61 6c 69 61 73 | 20 27 76 6d 2d 6d 6f 75 |defalias| 'vm-mou|
|00001270| 73 65 2d 73 65 6e 64 2d | 75 72 6c 2d 74 6f 2d 6d |se-send-|url-to-m|
|00001280| 6f 73 61 69 63 20 23 5b | 28 75 72 6c 20 26 6f 70 |osaic #[|(url &op|
|00001290| 74 69 6f 6e 61 6c 20 6e | 65 77 2d 6d 6f 73 61 69 |tional n|ew-mosai|
|000012a0| 63 20 6e 65 77 2d 77 69 | 6e 64 6f 77 29 20 22 c0 |c new-wi|ndow) ".|
|000012b0| c1 21 88 5c 6e ac f1 c3 | c4 c5 89 c6 1e 07 1e 08 |.!.\n...|........|
|000012c0| 1e 09 1e 5c 6e 1e 0b cc | 0e 0b 21 ab cb cd 0e 5c |...\n...|..!....\|
|000012d0| 6e 21 71 88 ce 20 88 cf | 0e 0b 21 88 d0 d1 d2 20 |n!q.. ..|..!.... |
|000012e0| 21 21 16 07 ce 20 88 0e | 13 ab 83 d4 aa 81 d5 d6 |!!... ..|........|
|000012f0| b1 02 88 0e 17 d6 b1 02 | 88 c6 16 18 0e 19 ab 85 |........|........|
|00001300| da c5 c6 5c 22 88 db 65 | 64 dc 0e 07 50 c6 dd 25 |...\"..e|d...P..%|
|00001310| 88 de c6 21 88 df 0e 5c | 6e 21 88 0e 07 ab 8a e0 |...!...\|n!......|
|00001320| e1 e2 0e 07 23 dd 6b ac | 82 e3 12 2d 5c 6e ab 8d |....#.k.|...-\n..|
|00001330| e4 e5 0e 26 e7 0e 28 0e | 17 43 5c 22 23 88 c0 e9 |...&..(.|.C\"#...|
|00001340| 21 87 22 20 5b 6d 65 73 | 73 61 67 65 20 22 53 65 |!." [mes|sage "Se|
|00001350| 6e 64 69 6e 67 20 55 52 | 4c 20 74 6f 20 4d 6f 73 |nding UR|L to Mos|
|00001360| 61 69 63 2e 2e 2e 22 20 | 6e 65 77 2d 6d 6f 73 61 |aic..." |new-mosa|
|00001370| 69 63 20 22 7e 2f 2e 6d | 6f 73 61 69 63 70 69 64 |ic "~/.m|osaicpid|
|00001380| 22 20 22 20 2a 6d 6f 73 | 61 69 63 20 77 6f 72 6b |" " *mos|aic work|
|00001390| 2a 22 20 6e 6f 2d 63 6f | 6e 76 65 72 73 69 6f 6e |*" no-co|nversion|
|000013a0| 20 6e 69 6c 20 70 69 64 | 20 63 6f 64 69 6e 67 2d | nil pid| coding-|
|000013b0| 73 79 73 74 65 6d 2d 66 | 6f 72 2d 77 72 69 74 65 |system-f|or-write|
|000013c0| 20 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 2d 66 | coding-|system-f|
|000013d0| 6f 72 2d 72 65 61 64 20 | 77 6f 72 6b 2d 62 75 66 |or-read |work-buf|
|000013e0| 66 65 72 20 70 69 64 2d | 66 69 6c 65 20 66 69 6c |fer pid-|file fil|
|000013f0| 65 2d 65 78 69 73 74 73 | 2d 70 20 67 65 74 2d 62 |e-exists|-p get-b|
|00001400| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 65 72 61 |uffer-cr|eate era|
|00001410| 73 65 2d 62 75 66 66 65 | 72 20 69 6e 73 65 72 74 |se-buffe|r insert|
|00001420| 2d 66 69 6c 65 2d 63 6f | 6e 74 65 6e 74 73 20 69 |-file-co|ntents i|
|00001430| 6e 74 2d 74 6f 2d 73 74 | 72 69 6e 67 20 73 74 72 |nt-to-st|ring str|
|00001440| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 62 75 66 66 65 |ing-to-i|nt buffe|
|00001450| 72 2d 73 74 72 69 6e 67 | 20 6e 65 77 2d 77 69 6e |r-string| new-win|
|00001460| 64 6f 77 20 22 6e 65 77 | 77 69 6e 22 20 22 67 6f |dow "new|win" "go|
|00001470| 74 6f 22 20 3f 5c 6e 20 | 75 72 6c 20 62 75 66 66 |to" ?\n |url buff|
|00001480| 65 72 2d 66 69 6c 65 2d | 74 79 70 65 20 76 6d 2d |er-file-|type vm-|
|00001490| 78 65 6d 61 63 73 2d 6d | 75 6c 65 2d 70 20 73 65 |xemacs-m|ule-p se|
|000014a0| 74 2d 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 63 6f |t-buffer|-file-co|
|000014b0| 64 69 6e 67 2d 73 79 73 | 74 65 6d 20 77 72 69 74 |ding-sys|tem writ|
|000014c0| 65 2d 72 65 67 69 6f 6e | 20 22 2f 74 6d 70 2f 4d |e-region| "/tmp/M|
|000014d0| 6f 73 61 69 63 2e 22 20 | 30 20 73 65 74 2d 62 75 |osaic." |0 set-bu|
|000014e0| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|000014f0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 76 6d 2d 72 |kill-buf|fer vm-r|
|00001500| 75 6e 2d 63 6f 6d 6d 61 | 6e 64 20 22 6b 69 6c 6c |un-comma|nd "kill|
|00001510| 22 20 22 2d 55 53 52 31 | 22 20 74 20 61 70 70 6c |" "-USR1|" t appl|
|00001520| 79 20 76 6d 2d 72 75 6e | 2d 62 61 63 6b 67 72 6f |y vm-run|-backgro|
|00001530| 75 6e 64 2d 63 6f 6d 6d | 61 6e 64 20 76 6d 2d 6d |und-comm|and vm-m|
|00001540| 6f 73 61 69 63 2d 70 72 | 6f 67 72 61 6d 20 61 70 |osaic-pr|ogram ap|
|00001550| 70 65 6e 64 20 76 6d 2d | 6d 6f 73 61 69 63 2d 70 |pend vm-|mosaic-p|
|00001560| 72 6f 67 72 61 6d 2d 73 | 77 69 74 63 68 65 73 20 |rogram-s|witches |
|00001570| 22 53 65 6e 64 69 6e 67 | 20 55 52 4c 20 74 6f 20 |"Sending| URL to |
|00001580| 4d 6f 73 61 69 63 2e 2e | 2e 20 64 6f 6e 65 22 5d |Mosaic..|. done"]|
|00001590| 20 36 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 6]).(de|falias '|
|000015a0| 76 6d 2d 6d 6f 75 73 65 | 2d 73 65 6e 64 2d 75 72 |vm-mouse|-send-ur|
|000015b0| 6c 2d 74 6f 2d 6d 6f 73 | 61 69 63 2d 6e 65 77 2d |l-to-mos|aic-new-|
|000015c0| 77 69 6e 64 6f 77 20 23 | 5b 28 75 72 6c 29 20 22 |window #|[(url) "|
|000015d0| c0 09 c2 c3 23 87 22 20 | 5b 76 6d 2d 6d 6f 75 73 |....#." |[vm-mous|
|000015e0| 65 2d 73 65 6e 64 2d 75 | 72 6c 2d 74 6f 2d 6d 6f |e-send-u|rl-to-mo|
|000015f0| 73 61 69 63 20 75 72 6c | 20 6e 69 6c 20 74 5d 20 |saic url| nil t] |
|00001600| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |4]).(def|alias 'v|
|00001610| 6d 2d 6d 6f 75 73 65 2d | 69 6e 73 74 61 6c 6c 2d |m-mouse-|install-|
|00001620| 6d 6f 75 73 65 20 23 5b | 6e 69 6c 20 22 c0 20 ab |mouse #[|nil ". .|
|00001630| 8d c1 5c 6e c3 5c 22 3f | ad a5 c4 5c 6e c3 c5 23 |..\n.\"?|...\n..#|
|00001640| 87 c6 20 ad 9b c1 5c 6e | c7 5c 22 ac 86 c4 5c 6e |.. ...\n|.\"...\n|
|00001650| c8 c5 23 88 0e 09 ad 8b | c4 5c 6e ca cb 23 88 c4 |..#.....|.\n..#..|
|00001660| 5c 6e cc cd 23 87 22 20 | 5b 76 6d 2d 6d 6f 75 73 |\n..#." |[vm-mous|
|00001670| 65 2d 78 65 6d 61 63 73 | 2d 6d 6f 75 73 65 2d 70 |e-xemacs|-mouse-p|
|00001680| 20 6c 6f 6f 6b 75 70 2d | 6b 65 79 20 76 6d 2d 6d | lookup-|key vm-m|
|00001690| 6f 64 65 2d 6d 61 70 20 | 62 75 74 74 6f 6e 32 20 |ode-map |button2 |
|000016a0| 64 65 66 69 6e 65 2d 6b | 65 79 20 76 6d 2d 6d 6f |define-k|ey vm-mo|
|000016b0| 75 73 65 2d 62 75 74 74 | 6f 6e 2d 32 20 76 6d 2d |use-butt|on-2 vm-|
|000016c0| 6d 6f 75 73 65 2d 66 73 | 66 65 6d 61 63 73 2d 6d |mouse-fs|femacs-m|
|000016d0| 6f 75 73 65 2d 70 20 5b | 6d 6f 75 73 65 2d 32 5d |ouse-p [|mouse-2]|
|000016e0| 20 5b 6d 6f 75 73 65 2d | 32 5d 20 76 6d 2d 70 6f | [mouse-|2] vm-po|
|000016f0| 70 75 70 2d 6d 65 6e 75 | 2d 6f 6e 2d 6d 6f 75 73 |pup-menu|-on-mous|
|00001700| 65 2d 33 20 5b 6d 6f 75 | 73 65 2d 33 5d 20 69 67 |e-3 [mou|se-3] ig|
|00001710| 6e 6f 72 65 20 5b 64 6f | 77 6e 2d 6d 6f 75 73 65 |nore [do|wn-mouse|
|00001720| 2d 33 5d 20 76 6d 2d 6d | 6f 75 73 65 2d 62 75 74 |-3] vm-m|ouse-but|
|00001730| 74 6f 6e 2d 33 5d 20 34 | 5d 29 0a 28 64 65 66 61 |ton-3] 4|]).(defa|
|00001740| 6c 69 61 73 20 27 76 6d | 2d 72 75 6e 2d 62 61 63 |lias 'vm|-run-bac|
|00001750| 6b 67 72 6f 75 6e 64 2d | 63 6f 6d 6d 61 6e 64 20 |kground-|command |
|00001760| 23 5b 28 63 6f 6d 6d 61 | 6e 64 20 26 72 65 73 74 |#[(comma|nd &rest|
|00001770| 20 61 72 67 2d 6c 69 73 | 74 29 20 22 c0 c1 5c 6e | arg-lis|t) "..\n|
|00001780| c3 c4 c3 0d 26 06 87 22 | 20 5b 61 70 70 6c 79 20 |....&.."| [apply |
|00001790| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 20 63 6f 6d |call-pro|cess com|
|000017a0| 6d 61 6e 64 20 6e 69 6c | 20 30 20 61 72 67 2d 6c |mand nil| 0 arg-l|
|000017b0| 69 73 74 5d 20 37 5d 29 | 0a 28 64 65 66 61 6c 69 |ist] 7])|.(defali|
|000017c0| 61 73 20 27 76 6d 2d 72 | 75 6e 2d 63 6f 6d 6d 61 |as 'vm-r|un-comma|
|000017d0| 6e 64 20 23 5b 28 63 6f | 6d 6d 61 6e 64 20 26 72 |nd #[(co|mmand &r|
|000017e0| 65 73 74 20 61 72 67 2d | 6c 69 73 74 29 20 22 c0 |est arg-|list) ".|
|000017f0| c1 5c 6e c3 89 89 0c 26 | 06 87 22 20 5b 61 70 70 |.\n....&|.." [app|
|00001800| 6c 79 20 63 61 6c 6c 2d | 70 72 6f 63 65 73 73 20 |ly call-|process |
|00001810| 63 6f 6d 6d 61 6e 64 20 | 6e 69 6c 20 61 72 67 2d |command |nil arg-|
|00001820| 6c 69 73 74 5d 20 37 5d | 29 0a 28 64 65 66 61 6c |list] 7]|).(defal|
|00001830| 69 61 73 20 27 76 6d 2d | 72 75 6e 2d 63 6f 6d 6d |ias 'vm-|run-comm|
|00001840| 61 6e 64 2d 6f 6e 2d 72 | 65 67 69 6f 6e 20 23 5b |and-on-r|egion #[|
|00001850| 28 73 74 61 72 74 20 65 | 6e 64 20 6f 75 74 70 75 |(start e|nd outpu|
|00001860| 74 2d 62 75 66 66 65 72 | 20 63 6f 6d 6d 61 6e 64 |t-buffer| command|
|00001870| 20 26 72 65 73 74 20 61 | 72 67 2d 6c 69 73 74 29 | &rest a|rg-list)|
|00001880| 20 22 c0 c1 c0 89 1a 1b | 1c 1d c6 8e c7 20 15 c8 | "......|..... ..|
|00001890| c9 0e 5c 6e 0e 0b 0e 0c | c0 0e 0d 0d 44 c0 0e 0e |..\n....|....D...|
|000018a0| 26 08 89 13 cf 6b ab 83 | c1 aa ab d0 d1 0d 21 38 |&....k..|......!8|
|000018b0| cf 6b ab 8a d2 d3 0e 0c | 0b 23 88 c1 aa 98 8a d2 |.k......|.#......|
|000018c0| d3 0e 0c 0b 23 88 d4 0d | 21 71 88 d5 20 12 d6 c0 |....#...|!q.. ...|
|000018d0| 21 88 0b 5c 6e 29 42 2d | 87 22 20 5b 6e 69 6c 20 |!..\n)B-|." [nil |
|000018e0| 74 20 65 72 72 73 74 72 | 69 6e 67 20 73 74 61 74 |t errstr|ing stat|
|000018f0| 75 73 20 62 69 6e 61 72 | 79 2d 70 72 6f 63 65 73 |us binar|y-proces|
|00001900| 73 2d 69 6e 70 75 74 20 | 74 65 6d 70 66 69 6c 65 |s-input |tempfile|
|00001910| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|00001920| 5c 6e 5c 22 87 22 20 5b | 76 6d 2d 65 72 72 6f 72 |\n\"." [|vm-error|
|00001930| 2d 66 72 65 65 2d 63 61 | 6c 6c 20 64 65 6c 65 74 |-free-ca|ll delet|
|00001940| 65 2d 66 69 6c 65 20 74 | 65 6d 70 66 69 6c 65 5d |e-file t|empfile]|
|00001950| 20 33 29 29 20 76 6d 2d | 6d 61 6b 65 2d 74 65 6d | 3)) vm-|make-tem|
|00001960| 70 66 69 6c 65 2d 6e 61 | 6d 65 20 61 70 70 6c 79 |pfile-na|me apply|
|00001970| 20 63 61 6c 6c 2d 70 72 | 6f 63 65 73 73 2d 72 65 | call-pr|ocess-re|
|00001980| 67 69 6f 6e 20 73 74 61 | 72 74 20 65 6e 64 20 63 |gion sta|rt end c|
|00001990| 6f 6d 6d 61 6e 64 20 6f | 75 74 70 75 74 2d 62 75 |ommand o|utput-bu|
|000019a0| 66 66 65 72 20 61 72 67 | 2d 6c 69 73 74 20 30 20 |ffer arg|-list 0 |
|000019b0| 37 20 66 69 6c 65 2d 61 | 74 74 72 69 62 75 74 65 |7 file-a|ttribute|
|000019c0| 73 20 6d 65 73 73 61 67 | 65 20 22 25 73 20 65 78 |s messag|e "%s ex|
|000019d0| 69 74 65 64 20 6e 6f 6e | 2d 7a 65 72 6f 20 28 63 |ited non|-zero (c|
|000019e0| 6f 64 65 20 25 73 29 22 | 20 66 69 6e 64 2d 66 69 |ode %s)"| find-fi|
|000019f0| 6c 65 2d 6e 6f 73 65 6c | 65 63 74 20 62 75 66 66 |le-nosel|ect buff|
|00001a00| 65 72 2d 73 74 72 69 6e | 67 20 6b 69 6c 6c 2d 62 |er-strin|g kill-b|
|00001a10| 75 66 66 65 72 5d 20 31 | 30 5d 29 0a 28 62 79 74 |uffer] 1|0]).(byt|
|00001a20| 65 2d 63 6f 64 65 20 22 | c0 09 42 11 c2 09 42 11 |e-code "|..B...B.|
|00001a30| c3 09 42 11 c4 09 42 11 | c5 09 42 11 c6 09 42 11 |..B...B.|..B...B.|
|00001a40| c7 09 42 11 c8 09 42 11 | c0 87 22 20 5b 76 6d 2d |..B...B.|.." [vm-|
|00001a50| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 66 69 6c 65 2d |mouse-re|ad-file-|
|00001a60| 6e 61 6d 65 2d 70 72 6f | 6d 70 74 20 63 75 72 72 |name-pro|mpt curr|
|00001a70| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 76 6d |ent-load|-list vm|
|00001a80| 2d 6d 6f 75 73 65 2d 72 | 65 61 64 2d 66 69 6c 65 |-mouse-r|ead-file|
|00001a90| 2d 6e 61 6d 65 2d 64 69 | 72 20 76 6d 2d 6d 6f 75 |-name-di|r vm-mou|
|00001aa0| 73 65 2d 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |se-read-|file-nam|
|00001ab0| 65 2d 64 65 66 61 75 6c | 74 20 76 6d 2d 6d 6f 75 |e-defaul|t vm-mou|
|00001ac0| 73 65 2d 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |se-read-|file-nam|
|00001ad0| 65 2d 6d 75 73 74 2d 6d | 61 74 63 68 20 76 6d 2d |e-must-m|atch vm-|
|00001ae0| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 66 69 6c 65 2d |mouse-re|ad-file-|
|00001af0| 6e 61 6d 65 2d 69 6e 69 | 74 69 61 6c 20 76 6d 2d |name-ini|tial vm-|
|00001b00| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 66 69 6c 65 2d |mouse-re|ad-file-|
|00001b10| 6e 61 6d 65 2d 68 69 73 | 74 6f 72 79 20 76 6d 2d |name-his|tory vm-|
|00001b20| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 66 69 6c 65 2d |mouse-re|ad-file-|
|00001b30| 6e 61 6d 65 2d 72 65 74 | 75 72 6e 2d 76 61 6c 75 |name-ret|urn-valu|
|00001b40| 65 20 76 6d 2d 6d 6f 75 | 73 65 2d 72 65 61 64 2d |e vm-mou|se-read-|
|00001b50| 66 69 6c 65 2d 6e 61 6d | 65 2d 73 68 6f 75 6c 64 |file-nam|e-should|
|00001b60| 2d 64 65 6c 65 74 65 2d | 66 72 61 6d 65 5d 20 32 |-delete-|frame] 2|
|00001b70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 6d 2d |).(defal|ias 'vm-|
|00001b80| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 66 69 6c 65 2d |mouse-re|ad-file-|
|00001b90| 6e 61 6d 65 20 23 5b 28 | 70 72 6f 6d 70 74 20 26 |name #[(|prompt &|
|00001ba0| 6f 70 74 69 6f 6e 61 6c | 20 64 69 72 20 64 65 66 |optional| dir def|
|00001bb0| 61 75 6c 74 20 6d 75 73 | 74 2d 6d 61 74 63 68 20 |ault mus|t-match |
|00001bc0| 69 6e 69 74 69 61 6c 20 | 68 69 73 74 6f 72 79 29 |initial |history)|
|00001bd0| 20 22 8a 08 ac 82 09 10 | c2 c3 21 71 88 c4 c5 20 | "......|..!q... |
|00001be0| 21 88 c6 16 07 08 11 c8 | c9 21 88 c8 ca 21 88 c8 |!.......|.!...!..|
|00001bf0| cb 21 88 c8 cc 21 88 c8 | cd 21 88 c8 ce 21 88 c8 |.!...!..|.!...!..|
|00001c00| cf 21 88 c8 d0 21 88 0e | 11 16 09 08 16 5c 6e 0e |.!...!..|.....\n.|
|00001c10| 12 16 0b 0e 13 16 0c 0e | 14 16 0d 0e 15 16 0e 0e |........|........|
|00001c20| 11 16 09 d6 16 0f d6 16 | 10 0e 17 ab 91 0e 18 ab |........|........|
|00001c30| 8d d9 20 ab 89 8a c6 16 | 10 da db 21 88 29 dc 70 |.. .....|...!.).p|
|00001c40| 21 88 dd 20 88 8a de df | e0 5c 22 88 e1 20 88 29 |!.. ....|.\".. .)|
|00001c50| e2 cf 21 ad 86 0e 0f e3 | 70 21 88 29 87 22 20 5b |..!.....|p!.)." [|
|00001c60| 64 69 72 20 64 65 66 61 | 75 6c 74 2d 64 69 72 65 |dir defa|ult-dire|
|00001c70| 63 74 6f 72 79 20 67 65 | 6e 65 72 61 74 65 2d 6e |ctory ge|nerate-n|
|00001c80| 65 77 2d 62 75 66 66 65 | 72 20 22 20 2a 46 69 6c |ew-buffe|r " *Fil|
|00001c90| 65 73 2a 22 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |es*" use|-local-m|
|00001ca0| 61 70 20 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |ap make-|sparse-k|
|00001cb0| 65 79 6d 61 70 20 74 20 | 62 75 66 66 65 72 2d 72 |eymap t |buffer-r|
|00001cc0| 65 61 64 2d 6f 6e 6c 79 | 20 6d 61 6b 65 2d 6c 6f |ead-only| make-lo|
|00001cd0| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 20 76 6d 2d |cal-vari|able vm-|
|00001ce0| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 66 69 6c 65 2d |mouse-re|ad-file-|
|00001cf0| 6e 61 6d 65 2d 70 72 6f | 6d 70 74 20 76 6d 2d 6d |name-pro|mpt vm-m|
|00001d00| 6f 75 73 65 2d 72 65 61 | 64 2d 66 69 6c 65 2d 6e |ouse-rea|d-file-n|
|00001d10| 61 6d 65 2d 64 69 72 20 | 76 6d 2d 6d 6f 75 73 65 |ame-dir |vm-mouse|
|00001d20| 2d 72 65 61 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |-read-fi|le-name-|
|00001d30| 64 65 66 61 75 6c 74 20 | 76 6d 2d 6d 6f 75 73 65 |default |vm-mouse|
|00001d40| 2d 72 65 61 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |-read-fi|le-name-|
|00001d50| 6d 75 73 74 2d 6d 61 74 | 63 68 20 76 6d 2d 6d 6f |must-mat|ch vm-mo|
|00001d60| 75 73 65 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |use-read|-file-na|
|00001d70| 6d 65 2d 69 6e 69 74 69 | 61 6c 20 76 6d 2d 6d 6f |me-initi|al vm-mo|
|00001d80| 75 73 65 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |use-read|-file-na|
|00001d90| 6d 65 2d 68 69 73 74 6f | 72 79 20 76 6d 2d 6d 6f |me-histo|ry vm-mo|
|00001da0| 75 73 65 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |use-read|-file-na|
|00001db0| 6d 65 2d 72 65 74 75 72 | 6e 2d 76 61 6c 75 65 20 |me-retur|n-value |
|00001dc0| 76 6d 2d 6d 6f 75 73 65 | 2d 72 65 61 64 2d 66 69 |vm-mouse|-read-fi|
|00001dd0| 6c 65 2d 6e 61 6d 65 2d | 73 68 6f 75 6c 64 2d 64 |le-name-|should-d|
|00001de0| 65 6c 65 74 65 2d 66 72 | 61 6d 65 20 70 72 6f 6d |elete-fr|ame prom|
|00001df0| 70 74 20 64 65 66 61 75 | 6c 74 20 6d 75 73 74 2d |pt defau|lt must-|
|00001e00| 6d 61 74 63 68 20 69 6e | 69 74 69 61 6c 20 68 69 |match in|itial hi|
|00001e10| 73 74 6f 72 79 20 6e 69 | 6c 20 76 6d 2d 6d 75 74 |story ni|l vm-mut|
|00001e20| 61 62 6c 65 2d 66 72 61 | 6d 65 73 20 76 6d 2d 66 |able-fra|mes vm-f|
|00001e30| 72 61 6d 65 2d 70 65 72 | 2d 63 6f 6d 70 6c 65 74 |rame-per|-complet|
|00001e40| 69 6f 6e 20 76 6d 2d 6d | 75 6c 74 69 70 6c 65 2d |ion vm-m|ultiple-|
|00001e50| 66 72 61 6d 65 73 2d 70 | 6f 73 73 69 62 6c 65 2d |frames-p|ossible-|
|00001e60| 70 20 76 6d 2d 67 6f 74 | 6f 2d 6e 65 77 2d 66 72 |p vm-got|o-new-fr|
|00001e70| 61 6d 65 20 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 73 |ame comp|letion s|
|00001e80| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 20 |witch-to|-buffer |
|00001e90| 76 6d 2d 6d 6f 75 73 65 | 2d 72 65 61 64 2d 66 69 |vm-mouse|-read-fi|
|00001ea0| 6c 65 2d 6e 61 6d 65 2d | 65 76 65 6e 74 2d 68 61 |le-name-|event-ha|
|00001eb0| 6e 64 6c 65 72 20 6c 6f | 63 61 6c 2d 73 65 74 2d |ndler lo|cal-set-|
|00001ec0| 6b 65 79 20 22 07 22 20 | 76 6d 2d 6d 6f 75 73 65 |key "." |vm-mouse|
|00001ed0| 2d 72 65 61 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |-read-fi|le-name-|
|00001ee0| 71 75 69 74 2d 68 61 6e | 64 6c 65 72 20 72 65 63 |quit-han|dler rec|
|00001ef0| 75 72 73 69 76 65 2d 65 | 64 69 74 20 62 6f 75 6e |ursive-e|dit boun|
|00001f00| 64 70 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |dp kill-|buffer] |
|00001f10| 33 20 22 5c 0a 4c 69 6b | 65 20 72 65 61 64 2d 66 |3 "\.Lik|e read-f|
|00001f20| 69 6c 65 2d 6e 61 6d 65 | 2c 20 65 78 63 65 70 74 |ile-name|, except|
|00001f30| 20 75 73 65 73 20 61 20 | 6d 6f 75 73 65 20 64 72 | uses a |mouse dr|
|00001f40| 69 76 65 6e 20 69 6e 74 | 65 72 66 61 63 65 2e 0a |iven int|erface..|
|00001f50| 48 49 53 54 4f 52 59 20 | 61 72 67 75 6d 65 6e 74 |HISTORY |argument|
|00001f60| 20 69 73 20 69 67 6e 6f | 72 65 64 2e 22 5d 29 0a | is igno|red."]).|
|00001f70| 28 64 65 66 61 6c 69 61 | 73 20 27 76 6d 2d 6d 6f |(defalia|s 'vm-mo|
|00001f80| 75 73 65 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |use-read|-file-na|
|00001f90| 6d 65 2d 65 76 65 6e 74 | 2d 68 61 6e 64 6c 65 72 |me-event|-handler|
|00001fa0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 73 74 | #[(&opt|ional st|
|00001fb0| 72 69 6e 67 29 20 22 c0 | c1 89 1a 1b 1c 0d ab a1 |ring) ".|........|
|00001fc0| 0d 0c 6b ab 87 c1 c6 c7 | 8f 88 aa 95 c8 0d 21 ab |..k.....|......!.|
|00001fd0| 87 c9 0d 21 16 5c 6e aa | 89 c9 0d 21 16 0b cc cd |...!.\n.|...!....|
|00001fe0| 21 88 c1 16 0e cf 20 88 | 60 13 0e 10 63 88 d1 0b |!..... .|`...c...|
|00001ff0| 60 d2 23 88 0d ac 91 0e | 13 ab 8d 60 13 0e 13 63 |`.#.....|...`...c|
|00002000| 88 d4 0b 60 5c 22 88 aa | 87 0d ab 84 0e 5c 6e 63 |...`\"..|.....\nc|
|00002010| 88 d5 89 b1 02 88 60 13 | 0c 63 88 d4 0b 60 5c 22 |......`.|.c...`\"|
|00002020| 88 d1 0b 60 d6 23 88 d5 | 89 b1 02 88 d7 d8 d9 da |...`.#..|........|
|00002030| 0e 5c 6e 21 21 21 21 12 | db 5c 6e dc 5c 22 88 cd |.\n!!!!.|.\n.\"..|
|00002040| 89 16 0e 2b 87 22 20 5b | 22 43 6c 69 63 6b 20 68 |...+." [|"Click h|
|00002050| 65 72 65 20 66 6f 72 20 | 6b 65 79 62 6f 61 72 64 |ere for |keyboard|
|00002060| 20 69 6e 74 65 72 66 61 | 63 65 2e 22 20 6e 69 6c | interfa|ce." nil|
|00002070| 20 6c 69 73 74 20 73 74 | 61 72 74 20 6b 65 79 2d | list st|art key-|
|00002080| 64 6f 63 20 73 74 72 69 | 6e 67 20 28 62 79 74 65 |doc stri|ng (byte|
|00002090| 2d 63 6f 64 65 20 22 8a | 8a c0 09 5c 6e 0b 0c 0d |-code ".|...\n...|
|000020a0| 0e 06 26 06 29 16 07 c8 | c9 21 88 29 c0 87 22 20 |..&.)...|.!.).." |
|000020b0| 5b 76 6d 2d 6b 65 79 62 | 6f 61 72 64 2d 72 65 61 |[vm-keyb|oard-rea|
|000020c0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 76 6d 2d 6d |d-file-n|ame vm-m|
|000020d0| 6f 75 73 65 2d 72 65 61 | 64 2d 66 69 6c 65 2d 6e |ouse-rea|d-file-n|
|000020e0| 61 6d 65 2d 70 72 6f 6d | 70 74 20 76 6d 2d 6d 6f |ame-prom|pt vm-mo|
|000020f0| 75 73 65 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |use-read|-file-na|
|00002100| 6d 65 2d 64 69 72 20 76 | 6d 2d 6d 6f 75 73 65 2d |me-dir v|m-mouse-|
|00002110| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |read-fil|e-name-d|
|00002120| 65 66 61 75 6c 74 20 76 | 6d 2d 6d 6f 75 73 65 2d |efault v|m-mouse-|
|00002130| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 6d |read-fil|e-name-m|
|00002140| 75 73 74 2d 6d 61 74 63 | 68 20 76 6d 2d 6d 6f 75 |ust-matc|h vm-mou|
|00002150| 73 65 2d 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |se-read-|file-nam|
|00002160| 65 2d 69 6e 69 74 69 61 | 6c 20 76 6d 2d 6d 6f 75 |e-initia|l vm-mou|
|00002170| 73 65 2d 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |se-read-|file-nam|
|00002180| 65 2d 68 69 73 74 6f 72 | 79 20 76 6d 2d 6d 6f 75 |e-histor|y vm-mou|
|00002190| 73 65 2d 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |se-read-|file-nam|
|000021a0| 65 2d 72 65 74 75 72 6e | 2d 76 61 6c 75 65 20 76 |e-return|-value v|
|000021b0| 6d 2d 6d 6f 75 73 65 2d | 72 65 61 64 2d 66 69 6c |m-mouse-|read-fil|
|000021c0| 65 2d 6e 61 6d 65 2d 71 | 75 69 74 2d 68 61 6e 64 |e-name-q|uit-hand|
|000021d0| 6c 65 72 20 74 5d 20 37 | 29 20 28 28 71 75 69 74 |ler t] 7|) ((quit|
|000021e0| 20 28 76 6d 2d 6d 6f 75 | 73 65 2d 72 65 61 64 2d | (vm-mou|se-read-|
|000021f0| 66 69 6c 65 2d 6e 61 6d | 65 2d 71 75 69 74 2d 68 |file-nam|e-quit-h|
|00002200| 61 6e 64 6c 65 72 29 29 | 29 20 66 69 6c 65 2d 64 |andler))|) file-d|
|00002210| 69 72 65 63 74 6f 72 79 | 2d 70 20 65 78 70 61 6e |irectory|-p expan|
|00002220| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 64 65 66 61 |d-file-n|ame defa|
|00002230| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 20 76 6d |ult-dire|ctory vm|
|00002240| 2d 6d 6f 75 73 65 2d 72 | 65 61 64 2d 66 69 6c 65 |-mouse-r|ead-file|
|00002250| 2d 6e 61 6d 65 2d 72 65 | 74 75 72 6e 2d 76 61 6c |-name-re|turn-val|
|00002260| 75 65 20 76 6d 2d 6d 6f | 75 73 65 2d 72 65 61 64 |ue vm-mo|use-read|
|00002270| 2d 66 69 6c 65 2d 6e 61 | 6d 65 2d 71 75 69 74 2d |-file-na|me-quit-|
|00002280| 68 61 6e 64 6c 65 72 20 | 74 20 62 75 66 66 65 72 |handler |t buffer|
|00002290| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 65 72 61 73 65 |-read-on|ly erase|
|000022a0| 2d 62 75 66 66 65 72 20 | 76 6d 2d 6d 6f 75 73 65 |-buffer |vm-mouse|
|000022b0| 2d 72 65 61 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |-read-fi|le-name-|
|000022c0| 70 72 6f 6d 70 74 20 76 | 6d 2d 73 65 74 2d 72 65 |prompt v|m-set-re|
|000022d0| 67 69 6f 6e 2d 66 61 63 | 65 20 62 6f 6c 64 20 76 |gion-fac|e bold v|
|000022e0| 6d 2d 6d 6f 75 73 65 2d | 72 65 61 64 2d 66 69 6c |m-mouse-|read-fil|
|000022f0| 65 2d 6e 61 6d 65 2d 64 | 65 66 61 75 6c 74 20 76 |e-name-d|efault v|
|00002300| 6d 2d 6d 6f 75 73 65 2d | 73 65 74 2d 6d 6f 75 73 |m-mouse-|set-mous|
|00002310| 65 2d 74 72 61 63 6b 2d | 68 69 67 68 6c 69 67 68 |e-track-|highligh|
|00002320| 74 20 3f 5c 6e 20 69 74 | 61 6c 69 63 20 76 6d 2d |t ?\n it|alic vm-|
|00002330| 64 65 6c 65 74 65 2d 62 | 61 63 6b 75 70 2d 66 69 |delete-b|ackup-fi|
|00002340| 6c 65 2d 6e 61 6d 65 73 | 20 76 6d 2d 64 65 6c 65 |le-names| vm-dele|
|00002350| 74 65 2d 61 75 74 6f 2d | 73 61 76 65 2d 66 69 6c |te-auto-|save-fil|
|00002360| 65 2d 6e 61 6d 65 73 20 | 76 6d 2d 64 65 6c 65 74 |e-names |vm-delet|
|00002370| 65 2d 69 6e 64 65 78 2d | 66 69 6c 65 2d 6e 61 6d |e-index-|file-nam|
|00002380| 65 73 20 64 69 72 65 63 | 74 6f 72 79 2d 66 69 6c |es direc|tory-fil|
|00002390| 65 73 20 76 6d 2d 73 68 | 6f 77 2d 6c 69 73 74 20 |es vm-sh|ow-list |
|000023a0| 76 6d 2d 6d 6f 75 73 65 | 2d 72 65 61 64 2d 66 69 |vm-mouse|-read-fi|
|000023b0| 6c 65 2d 6e 61 6d 65 2d | 65 76 65 6e 74 2d 68 61 |le-name-|event-ha|
|000023c0| 6e 64 6c 65 72 5d 20 35 | 5d 29 0a 28 64 65 66 61 |ndler] 5|]).(defa|
|000023d0| 6c 69 61 73 20 27 76 6d | 2d 6d 6f 75 73 65 2d 72 |lias 'vm|-mouse-r|
|000023e0| 65 61 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 2d 71 75 |ead-file|-name-qu|
|000023f0| 69 74 2d 68 61 6e 64 6c | 65 72 20 23 5b 28 26 6f |it-handl|er #[(&o|
|00002400| 70 74 69 6f 6e 61 6c 20 | 6e 6f 72 6d 61 6c 2d 65 |ptional |normal-e|
|00002410| 78 69 74 29 20 22 08 ab | 84 c1 70 21 88 5c 6e ab |xit) "..|..p!.\n.|
|00002420| 85 c3 c4 c5 5c 22 87 c3 | c4 c6 5c 22 87 22 20 5b |....\"..|..\"." [|
|00002430| 76 6d 2d 6d 6f 75 73 65 | 2d 72 65 61 64 2d 66 69 |vm-mouse|-read-fi|
|00002440| 6c 65 2d 6e 61 6d 65 2d | 73 68 6f 75 6c 64 2d 64 |le-name-|should-d|
|00002450| 65 6c 65 74 65 2d 66 72 | 61 6d 65 20 76 6d 2d 6d |elete-fr|ame vm-m|
|00002460| 61 79 62 65 2d 64 65 6c | 65 74 65 2d 77 69 6e 64 |aybe-del|ete-wind|
|00002470| 6f 77 73 2d 6f 72 2d 66 | 72 61 6d 65 73 2d 6f 6e |ows-or-f|rames-on|
|00002480| 20 6e 6f 72 6d 61 6c 2d | 65 78 69 74 20 74 68 72 | normal-|exit thr|
|00002490| 6f 77 20 65 78 69 74 20 | 6e 69 6c 20 74 5d 20 33 |ow exit |nil t] 3|
|000024a0| 20 6e 69 6c 20 6e 69 6c | 5d 29 0a 28 62 79 74 65 | nil nil|]).(byte|
|000024b0| 2d 63 6f 64 65 20 22 c0 | 09 42 11 c2 09 42 11 c3 |-code ".|.B...B..|
|000024c0| 09 42 11 c4 09 42 11 c5 | 09 42 11 c0 87 22 20 5b |.B...B..|.B..." [|
|000024d0| 76 6d 2d 6d 6f 75 73 65 | 2d 72 65 61 64 2d 73 74 |vm-mouse|-read-st|
|000024e0| 72 69 6e 67 2d 70 72 6f | 6d 70 74 20 63 75 72 72 |ring-pro|mpt curr|
|000024f0| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 76 6d |ent-load|-list vm|
|00002500| 2d 6d 6f 75 73 65 2d 72 | 65 61 64 2d 73 74 72 69 |-mouse-r|ead-stri|
|00002510| 6e 67 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 6c 69 |ng-compl|etion-li|
|00002520| 73 74 20 76 6d 2d 6d 6f | 75 73 65 2d 72 65 61 64 |st vm-mo|use-read|
|00002530| 2d 73 74 72 69 6e 67 2d | 6d 75 6c 74 69 2d 77 6f |-string-|multi-wo|
|00002540| 72 64 20 76 6d 2d 6d 6f | 75 73 65 2d 72 65 61 64 |rd vm-mo|use-read|
|00002550| 2d 73 74 72 69 6e 67 2d | 72 65 74 75 72 6e 2d 76 |-string-|return-v|
|00002560| 61 6c 75 65 20 76 6d 2d | 6d 6f 75 73 65 2d 72 65 |alue vm-|mouse-re|
|00002570| 61 64 2d 73 74 72 69 6e | 67 2d 73 68 6f 75 6c 64 |ad-strin|g-should|
|00002580| 2d 64 65 6c 65 74 65 2d | 66 72 61 6d 65 5d 20 32 |-delete-|frame] 2|
|00002590| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 6d 2d |).(defal|ias 'vm-|
|000025a0| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 73 74 72 69 6e |mouse-re|ad-strin|
|000025b0| 67 20 23 5b 28 70 72 6f | 6d 70 74 20 63 6f 6d 70 |g #[(pro|mpt comp|
|000025c0| 6c 65 74 69 6f 6e 2d 6c | 69 73 74 20 26 6f 70 74 |letion-l|ist &opt|
|000025d0| 69 6f 6e 61 6c 20 6d 75 | 6c 74 69 2d 77 6f 72 64 |ional mu|lti-word|
|000025e0| 29 20 22 8a c0 c1 21 71 | 88 c2 c3 20 21 88 c4 15 |) "...!q|... !...|
|000025f0| c6 c7 21 88 c6 c8 21 88 | c6 c9 21 88 c6 ca 21 88 |..!...!.|..!...!.|
|00002600| c6 cb 21 88 0e 0c 16 07 | 0e 0d 16 08 0e 0e 16 09 |..!.....|........|
|00002610| cf 16 5c 6e cf 16 0b 0e | 10 ab 91 0e 11 ab 8d d2 |..\n....|........|
|00002620| 20 ab 89 8a c4 16 0b d3 | d4 21 88 29 d5 70 21 88 | .......|.!.).p!.|
|00002630| d6 20 88 8a d7 d8 d9 5c | 22 88 da 20 88 29 db ca |. .....\|".. .)..|
|00002640| 21 ad 93 0e 5c 6e 3c ab | 88 dc dd 0e 5c 6e de 23 |!...\n<.|....\n.#|
|00002650| aa 82 0e 5c 6e df 70 21 | 88 29 87 22 20 5b 67 65 |...\n.p!|.)." [ge|
|00002660| 6e 65 72 61 74 65 2d 6e | 65 77 2d 62 75 66 66 65 |nerate-n|ew-buffe|
|00002670| 72 20 22 20 2a 43 68 6f | 69 63 65 73 2a 22 20 75 |r " *Cho|ices*" u|
|00002680| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 6d 61 6b |se-local|-map mak|
|00002690| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 20 |e-sparse|-keymap |
|000026a0| 74 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |t buffer|-read-on|
|000026b0| 6c 79 20 6d 61 6b 65 2d | 6c 6f 63 61 6c 2d 76 61 |ly make-|local-va|
|000026c0| 72 69 61 62 6c 65 20 76 | 6d 2d 6d 6f 75 73 65 2d |riable v|m-mouse-|
|000026d0| 72 65 61 64 2d 73 74 72 | 69 6e 67 2d 70 72 6f 6d |read-str|ing-prom|
|000026e0| 70 74 20 76 6d 2d 6d 6f | 75 73 65 2d 72 65 61 64 |pt vm-mo|use-read|
|000026f0| 2d 73 74 72 69 6e 67 2d | 63 6f 6d 70 6c 65 74 69 |-string-|completi|
|00002700| 6f 6e 2d 6c 69 73 74 20 | 76 6d 2d 6d 6f 75 73 65 |on-list |vm-mouse|
|00002710| 2d 72 65 61 64 2d 73 74 | 72 69 6e 67 2d 6d 75 6c |-read-st|ring-mul|
|00002720| 74 69 2d 77 6f 72 64 20 | 76 6d 2d 6d 6f 75 73 65 |ti-word |vm-mouse|
|00002730| 2d 72 65 61 64 2d 73 74 | 72 69 6e 67 2d 72 65 74 |-read-st|ring-ret|
|00002740| 75 72 6e 2d 76 61 6c 75 | 65 20 76 6d 2d 6d 6f 75 |urn-valu|e vm-mou|
|00002750| 73 65 2d 72 65 61 64 2d | 73 74 72 69 6e 67 2d 73 |se-read-|string-s|
|00002760| 68 6f 75 6c 64 2d 64 65 | 6c 65 74 65 2d 66 72 61 |hould-de|lete-fra|
|00002770| 6d 65 20 70 72 6f 6d 70 | 74 20 63 6f 6d 70 6c 65 |me promp|t comple|
|00002780| 74 69 6f 6e 2d 6c 69 73 | 74 20 6d 75 6c 74 69 2d |tion-lis|t multi-|
|00002790| 77 6f 72 64 20 6e 69 6c | 20 76 6d 2d 6d 75 74 61 |word nil| vm-muta|
|000027a0| 62 6c 65 2d 66 72 61 6d | 65 73 20 76 6d 2d 66 72 |ble-fram|es vm-fr|
|000027b0| 61 6d 65 2d 70 65 72 2d | 63 6f 6d 70 6c 65 74 69 |ame-per-|completi|
|000027c0| 6f 6e 20 76 6d 2d 6d 75 | 6c 74 69 70 6c 65 2d 66 |on vm-mu|ltiple-f|
|000027d0| 72 61 6d 65 73 2d 70 6f | 73 73 69 62 6c 65 2d 70 |rames-po|ssible-p|
|000027e0| 20 76 6d 2d 67 6f 74 6f | 2d 6e 65 77 2d 66 72 61 | vm-goto|-new-fra|
|000027f0| 6d 65 20 63 6f 6d 70 6c | 65 74 69 6f 6e 20 73 77 |me compl|etion sw|
|00002800| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 20 76 |itch-to-|buffer v|
|00002810| 6d 2d 6d 6f 75 73 65 2d | 72 65 61 64 2d 73 74 72 |m-mouse-|read-str|
|00002820| 69 6e 67 2d 65 76 65 6e | 74 2d 68 61 6e 64 6c 65 |ing-even|t-handle|
|00002830| 72 20 6c 6f 63 61 6c 2d | 73 65 74 2d 6b 65 79 20 |r local-|set-key |
|00002840| 22 07 22 20 76 6d 2d 6d | 6f 75 73 65 2d 72 65 61 |"." vm-m|ouse-rea|
|00002850| 64 2d 73 74 72 69 6e 67 | 2d 71 75 69 74 2d 68 61 |d-string|-quit-ha|
|00002860| 6e 64 6c 65 72 20 72 65 | 63 75 72 73 69 76 65 2d |ndler re|cursive-|
|00002870| 65 64 69 74 20 62 6f 75 | 6e 64 70 20 6d 61 70 63 |edit bou|ndp mapc|
|00002880| 6f 6e 63 61 74 20 69 64 | 65 6e 74 69 74 79 20 22 |oncat id|entity "|
|00002890| 20 22 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 | " kill-|buffer] |
|000028a0| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |4]).(def|alias 'v|
|000028b0| 6d 2d 6d 6f 75 73 65 2d | 72 65 61 64 2d 73 74 72 |m-mouse-|read-str|
|000028c0| 69 6e 67 2d 65 76 65 6e | 74 2d 68 61 6e 64 6c 65 |ing-even|t-handle|
|000028d0| 72 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |r #[(&op|tional s|
|000028e0| 74 72 69 6e 67 29 20 22 | c0 c1 c2 c3 89 1c 1d 1e |tring) "|........|
|000028f0| 06 1e 07 1e 08 0e 09 ab | bb 0e 09 0e 08 6b ab 87 |........|.....k..|
|00002900| c3 ca cb 8f 88 aa ad 0e | 09 0e 07 6b ab 89 0e 0c |........|...k....|
|00002910| 9f 41 9f 16 0c aa 9d 0e | 09 0e 06 6b ab 86 cd ce |.A......|...k....|
|00002920| 21 88 aa 90 0e 0c 0e 09 | 43 a4 16 0c 0e 0f ac 84 |!.......|C.......|
|00002930| cd ce 21 88 c3 16 10 d1 | 20 88 60 15 0e 12 63 88 |..!.....| .`...c.|
|00002940| d3 0d 60 d4 23 88 d5 d6 | 0e 0c d7 23 63 88 d8 89 |..`.#...|...#c...|
|00002950| b1 02 88 60 15 0e 08 63 | 88 d9 0d 60 5c 22 88 d3 |...`...c|...`\"..|
|00002960| 0d 60 da 23 88 d8 63 88 | 0e 0f ab a8 60 15 0e 07 |.`.#..c.|....`...|
|00002970| 63 88 d9 0d 60 5c 22 88 | d3 0d 60 da 23 88 d8 63 |c...`\".|..`.#..c|
|00002980| 88 60 15 0e 06 63 88 d9 | 0d 60 5c 22 88 d3 0d 60 |.`...c..|.`\"...`|
|00002990| da 23 88 d8 63 88 d8 63 | 88 db 0e 1c dd 5c 22 88 |.#..c..c|.....\".|
|000029a0| ce 89 16 10 2d 87 22 20 | 5b 22 43 6c 69 63 6b 20 |....-." |["Click |
|000029b0| 68 65 72 65 20 66 6f 72 | 20 6b 65 79 62 6f 61 72 |here for| keyboar|
|000029c0| 64 20 69 6e 74 65 72 66 | 61 63 65 2e 22 20 22 20 |d interf|ace." " |
|000029d0| 20 20 20 20 20 2e 2e 2e | 2e 20 74 6f 20 67 6f 20 |     ...|. to go |
|000029e0| 62 61 63 6b 20 6f 6e 65 | 20 77 6f 72 64 2e 22 20 |back one| word." |
|000029f0| 22 20 20 20 20 20 20 2e | 2e 2e 2e 20 77 68 65 6e |"      .|... when|
|00002a00| 20 79 6f 75 27 72 65 20 | 64 6f 6e 65 2e 22 20 6e | you're |done." n|
|00002a10| 69 6c 20 6c 69 73 74 20 | 73 74 61 72 74 20 64 6f |il list |start do|
|00002a20| 6e 65 2d 64 6f 63 20 62 | 73 2d 64 6f 63 20 6b 65 |ne-doc b|s-doc ke|
|00002a30| 79 2d 64 6f 63 20 73 74 | 72 69 6e 67 20 28 62 79 |y-doc st|ring (by|
|00002a40| 74 65 2d 63 6f 64 65 20 | 22 8a c0 09 5c 6e 0b 23 |te-code |"...\n.#|
|00002a50| 14 c5 c6 21 88 29 c0 87 | 22 20 5b 76 6d 2d 6b 65 |...!.)..|" [vm-ke|
|00002a60| 79 62 6f 61 72 64 2d 72 | 65 61 64 2d 73 74 72 69 |yboard-r|ead-stri|
|00002a70| 6e 67 20 76 6d 2d 6d 6f | 75 73 65 2d 72 65 61 64 |ng vm-mo|use-read|
|00002a80| 2d 73 74 72 69 6e 67 2d | 70 72 6f 6d 70 74 20 76 |-string-|prompt v|
|00002a90| 6d 2d 6d 6f 75 73 65 2d | 72 65 61 64 2d 73 74 72 |m-mouse-|read-str|
|00002aa0| 69 6e 67 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 2d 6c |ing-comp|letion-l|
|00002ab0| 69 73 74 20 76 6d 2d 6d | 6f 75 73 65 2d 72 65 61 |ist vm-m|ouse-rea|
|00002ac0| 64 2d 73 74 72 69 6e 67 | 2d 6d 75 6c 74 69 2d 77 |d-string|-multi-w|
|00002ad0| 6f 72 64 20 76 6d 2d 6d | 6f 75 73 65 2d 72 65 61 |ord vm-m|ouse-rea|
|00002ae0| 64 2d 73 74 72 69 6e 67 | 2d 72 65 74 75 72 6e 2d |d-string|-return-|
|00002af0| 76 61 6c 75 65 20 76 6d | 2d 6d 6f 75 73 65 2d 72 |value vm|-mouse-r|
|00002b00| 65 61 64 2d 73 74 72 69 | 6e 67 2d 71 75 69 74 2d |ead-stri|ng-quit-|
|00002b10| 68 61 6e 64 6c 65 72 20 | 74 5d 20 34 29 20 28 28 |handler |t] 4) ((|
|00002b20| 71 75 69 74 20 28 76 6d | 2d 6d 6f 75 73 65 2d 72 |quit (vm|-mouse-r|
|00002b30| 65 61 64 2d 73 74 72 69 | 6e 67 2d 71 75 69 74 2d |ead-stri|ng-quit-|
|00002b40| 68 61 6e 64 6c 65 72 29 | 29 29 20 76 6d 2d 6d 6f |handler)|)) vm-mo|
|00002b50| 75 73 65 2d 72 65 61 64 | 2d 73 74 72 69 6e 67 2d |use-read|-string-|
|00002b60| 72 65 74 75 72 6e 2d 76 | 61 6c 75 65 20 76 6d 2d |return-v|alue vm-|
|00002b70| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 73 74 72 69 6e |mouse-re|ad-strin|
|00002b80| 67 2d 71 75 69 74 2d 68 | 61 6e 64 6c 65 72 20 74 |g-quit-h|andler t|
|00002b90| 20 76 6d 2d 6d 6f 75 73 | 65 2d 72 65 61 64 2d 73 | vm-mous|e-read-s|
|00002ba0| 74 72 69 6e 67 2d 6d 75 | 6c 74 69 2d 77 6f 72 64 |tring-mu|lti-word|
|00002bb0| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00002bc0| 79 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 76 |y erase-|buffer v|
|00002bd0| 6d 2d 6d 6f 75 73 65 2d | 72 65 61 64 2d 73 74 72 |m-mouse-|read-str|
|00002be0| 69 6e 67 2d 70 72 6f 6d | 70 74 20 76 6d 2d 73 65 |ing-prom|pt vm-se|
|00002bf0| 74 2d 72 65 67 69 6f 6e | 2d 66 61 63 65 20 62 6f |t-region|-face bo|
|00002c00| 6c 64 20 6d 61 70 63 6f | 6e 63 61 74 20 69 64 65 |ld mapco|ncat ide|
|00002c10| 6e 74 69 74 79 20 22 20 | 22 20 3f 5c 6e 20 76 6d |ntity " |" ?\n vm|
|00002c20| 2d 6d 6f 75 73 65 2d 73 | 65 74 2d 6d 6f 75 73 65 |-mouse-s|et-mouse|
|00002c30| 2d 74 72 61 63 6b 2d 68 | 69 67 68 6c 69 67 68 74 |-track-h|ighlight|
|00002c40| 20 69 74 61 6c 69 63 20 | 76 6d 2d 73 68 6f 77 2d | italic |vm-show-|
|00002c50| 6c 69 73 74 20 76 6d 2d | 6d 6f 75 73 65 2d 72 65 |list vm-|mouse-re|
|00002c60| 61 64 2d 73 74 72 69 6e | 67 2d 63 6f 6d 70 6c 65 |ad-strin|g-comple|
|00002c70| 74 69 6f 6e 2d 6c 69 73 | 74 20 76 6d 2d 6d 6f 75 |tion-lis|t vm-mou|
|00002c80| 73 65 2d 72 65 61 64 2d | 73 74 72 69 6e 67 2d 65 |se-read-|string-e|
|00002c90| 76 65 6e 74 2d 68 61 6e | 64 6c 65 72 5d 20 35 5d |vent-han|dler] 5]|
|00002ca0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 6d 2d |).(defal|ias 'vm-|
|00002cb0| 6d 6f 75 73 65 2d 72 65 | 61 64 2d 73 74 72 69 6e |mouse-re|ad-strin|
|00002cc0| 67 2d 71 75 69 74 2d 68 | 61 6e 64 6c 65 72 20 23 |g-quit-h|andler #|
|00002cd0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 72 6d |[(&optio|nal norm|
|00002ce0| 61 6c 2d 65 78 69 74 29 | 20 22 08 ab 84 c1 70 21 |al-exit)| "....p!|
|00002cf0| 88 5c 6e ab 85 c3 c4 c5 | 5c 22 87 c3 c4 c6 5c 22 |.\n.....|\"....\"|
|00002d00| 87 22 20 5b 76 6d 2d 6d | 6f 75 73 65 2d 72 65 61 |." [vm-m|ouse-rea|
|00002d10| 64 2d 73 74 72 69 6e 67 | 2d 73 68 6f 75 6c 64 2d |d-string|-should-|
|00002d20| 64 65 6c 65 74 65 2d 66 | 72 61 6d 65 20 76 6d 2d |delete-f|rame vm-|
|00002d30| 6d 61 79 62 65 2d 64 65 | 6c 65 74 65 2d 77 69 6e |maybe-de|lete-win|
|00002d40| 64 6f 77 73 2d 6f 72 2d | 66 72 61 6d 65 73 2d 6f |dows-or-|frames-o|
|00002d50| 6e 20 6e 6f 72 6d 61 6c | 2d 65 78 69 74 20 74 68 |n normal|-exit th|
|00002d60| 72 6f 77 20 65 78 69 74 | 20 6e 69 6c 20 74 5d 20 |row exit| nil t] |
|00002d70| 33 20 6e 69 6c 20 6e 69 | 6c 5d 29 0a             |3 nil ni|l]).    |
+--------+-------------------------+-------------------------+--------+--------+